home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / ls < prev    next >
Text File  |  2002-09-18  |  2KB  |  99 lines
  1. /*
  2.                     ls.irc by archon <archon@tamu.edu>
  3.                             August 16, 1996
  4.             because /exec ls is just too easy!
  5.         and i couldn't think of another use for $glob()
  6. */
  7.   
  8. alias ls {
  9.   switch ($0) {
  10.     () {
  11.       fe ($glob(*)) ii jj kk ll {
  12.         echo $lformat(15, $ii) $lformat(15, $jj) $lformat(15, $kk) $lformat(15, $ll)
  13.       }
  14.     }
  15.     (-a) {
  16.       if ([$1]) {
  17.         if ((match($1 $glob(.* *))) || (match($1/ $glob(.* *)))) {
  18.       if (match($1/ $glob(.* *))) {
  19.         fe ($pattern($1/ $glob(.* *))) qq {
  20.           push tols $qq*
  21.         }
  22.         fe ($pattern($1 $glob(.* *))) qq {
  23.           push tols $qq
  24.         }
  25.       }{
  26.         @ tols = [$1]
  27.       }
  28.     }{
  29.       echo ls: $1\: No such file or directory
  30.     }
  31.       }{
  32.         @ tols = [.* *]
  33.       }
  34.       fe ($glob($tols)) ii jj kk ll {
  35.         echo $lformat(10, $ii) $lformat(10, $jj) $lformat(10, $kk) $lformat(10, $ll)
  36.       }
  37.     }
  38.     (-s) {
  39.       if ([$1]) {
  40.         if ((match($1 $glob(.* *))) || (match($1/ $glob(.* *)))) {
  41.       if (match($1/ $glob(.* *))) {
  42.         fe ($pattern($1/ $glob(.* *))) qq {
  43.           push tols $qq*
  44.         }
  45.         fe ($pattern($1 $glob(.* *))) qq {
  46.           push tols $qq
  47.         }
  48.       }{
  49.         @ tols = [$1]
  50.       }
  51.     }{
  52.       echo ls: $1\: No such file or directory
  53.     }
  54.       }{
  55.         @ tols = [*]
  56.       }
  57.       echo $tols
  58.       fe ($glob($tols)) ii jj kk {
  59.         echo $lformat(20, $fsize($ii) $ii) $lformat(20, $fsize($jj) $jj)  $lformat(20, $fsize($kk) $kk)
  60.       }
  61.     }
  62.     (*) {
  63.       if ((match($0 $glob(.* *))) || (match($0/ $glob(.* *)))) {
  64.         if (match($0/ $glob(.* *))) {
  65.       fe ($pattern($0/ $glob(.* *))) qq {
  66.         push tols $qq*
  67.       }
  68.       fe ($pattern($0 $glob(.* *))) qq {
  69.         push tols $qq
  70.       }
  71.     }{
  72.       @ tols = [$0]
  73.     }
  74.         fe ($glob($tols)) ii jj kk ll mm {
  75.           echo $lformat(10, $ii) $lformat(10, $jj) $lformat(10, $kk) $lformat(10, $ll) $lformat(10, $mm)
  76.         }
  77.       }{
  78.         echo ls: $0\: No such file or directory
  79.       }
  80.     }
  81.   }
  82.   @ tols = qq = []
  83. }
  84.  
  85.  
  86. /* format alias written by someone else */
  87.  
  88. alias lformat {
  89.   @ IRCII.word = [$1-]
  90.   if (@IRCII.word < [$0]) {
  91.     @ function_return = [$([$0]IRCII.word)]
  92.   }{
  93.     @ function_return = [$IRCII.word]
  94.   }
  95.   @ ircii.word = []
  96. }
  97.  
  98. #archon'96
  99.